home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 751-760 / 751 / annotate / openwithpattern.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-18  |  816b  |  32 lines
  1.  
  2. /** 
  3.  **
  4.  **       OpenWithPatern.rexx
  5.  **
  6.  **       Annotate 1.8 and higher only
  7.  **
  8.  **/
  9.  
  10.  
  11. OPTIONS RESULTS
  12.  
  13. address 'Annotate_Rexx'            /* Address Ann's rexx port */
  14.  
  15.  
  16.                                    /* use one of Annotates built 
  17.                                       in requesters to find out
  18.                                       what pattern they want     */
  19.      
  20. REQUESTER LIST "'Pick a pattern:' '_Cancel' '#?(.c|.h|makefile)' '#?(.a|.asm|.i|makefile)' '#?(.rexx)'"
  21.  
  22. if RESULT ~== '_Cancel' then 
  23. do
  24.      set pattern RESULT            /* Set pattern gadget in file requester */
  25.      oldpat = RESULT               /* store the old pattern */
  26.      
  27.      domenu open_new...            /* Open a file in a new window */
  28.      
  29.      set pattern oldpat            /* set the pattern gadget back */
  30. end
  31.  
  32.